home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Macintosh Easy Open / Documentation / Developer / Interfaces / PInterfaces / TranslationExtensions.p < prev   
Encoding:
Text File  |  1994-12-12  |  4.1 KB  |  148 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        TranslationExtensions.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Built by:            anonymous
  8.                  From:                TranslationExtensions.i, revision 4, dated 5/31/94
  9.                  With Interfacer:    1.1d4e2
  10.  
  11.      Bugs:        Report bugs to Radar component “System Interfaces”, “Latest”
  12.                  List the version information from above in Problem Description.
  13.  
  14. }
  15.  
  16. {$IFC UNDEFINED UsingIncludes}
  17. {$SETC UsingIncludes := 0}
  18. {$ENDC}
  19.  
  20. {$IFC NOT UsingIncludes}
  21.  UNIT TranslationExtensions;
  22.  INTERFACE
  23. {$ENDC}
  24.  
  25. {$IFC UNDEFINED __TRANSLATIONEXTENSIONS__}
  26. {$SETC __TRANSLATIONEXTENSIONS__ := 1}
  27.  
  28. {$I+}
  29. {$SETC TranslationExtensionsIncludes := UsingIncludes}
  30. {$SETC UsingIncludes := 1}
  31.  
  32. {$SETC kSupportsFileTranslation := 1}
  33. {$SETC kSupportsScrapTranslation := 2}
  34. {$SETC kTranslatorCanGenerateFilename := 4}
  35. {$IFC UNDEFINED REZ }
  36.  
  37. {$IFC UNDEFINED __MEMORY__}
  38. {$I Memory.p}
  39. {$ENDC}
  40. {    Types.p                                                        }
  41. {        ConditionalMacros.p                                        }
  42. {        MixedMode.p                                                }
  43. {            Traps.p                                                }
  44.  
  45. {$IFC UNDEFINED __FILES__}
  46. {$I Files.p}
  47. {$ENDC}
  48. {    OSUtils.p                                                    }
  49. {    SegLoad.p                                                    }
  50.  
  51. {$IFC UNDEFINED __QUICKDRAW__}
  52. {$I Quickdraw.p}
  53. {$ENDC}
  54. {    QuickdrawText.p                                                }
  55. {        IntlResources.p                                            }
  56.  
  57. {$IFC UNDEFINED __COMPONENTS__}
  58. {$I Components.p}
  59. {$ENDC}
  60.  
  61. TYPE
  62.     FileType = OSType;
  63.  
  64.     ScrapType = ResType;
  65.  
  66.     TranslationAttributes = LONGINT;
  67.  
  68. {$SETC taDstDocNeedsResourceFork := 1}
  69. {$SETC taDstIsAppTranslation := 2}
  70.     {$ALIGN MAC68K}
  71.     FileTypeSpec = PACKED RECORD
  72.         format:                    FileType;
  73.         hint:                    LONGINT;
  74.         flags:                    TranslationAttributes;
  75.         catInfoType:            OSType;
  76.         catInfoCreator:            OSType;
  77.     END;
  78.     {$ALIGN RESET}
  79.     {$ALIGN MAC68K}
  80.     FileTranslationList = PACKED RECORD
  81.         modDate:                LONGINT;
  82.         groupCount:                LONGINT;
  83.     END;
  84.     {$ALIGN RESET}
  85.     FileTranslationListPtr = ^FileTranslationList;
  86.     FileTranslationListHandle = ^FileTranslationListPtr;
  87.  
  88.     {$ALIGN MAC68K}
  89.     ScrapTypeSpec = PACKED RECORD
  90.         format:                    ScrapType;
  91.         hint:                    LONGINT;
  92.     END;
  93.     {$ALIGN RESET}
  94.     {$ALIGN MAC68K}
  95.     ScrapTranslationList = PACKED RECORD
  96.         modDate:                LONGINT;
  97.         groupCount:                LONGINT;
  98.     END;
  99.     {$ALIGN RESET}
  100.     ScrapTranslationListPtr = ^ScrapTranslationList;
  101.     ScrapTranslationListHandle = ^ScrapTranslationListPtr;
  102.  
  103.     TranslationRefNum = LONGINT;
  104.  
  105.  
  106. FUNCTION SetTranslationAdvertisement(refNum: TranslationRefNum; advertisement: PicHandle): OSErr;
  107.     {$IFC USES68KINLINES}
  108.     INLINE $7002, $ABFC;
  109.     {$ENDC}
  110. FUNCTION UpdateTranslationProgress(refNum: TranslationRefNum; percentDone: INTEGER; VAR canceled: BOOLEAN): OSErr;
  111.     {$IFC USES68KINLINES}
  112.     INLINE $7001, $ABFC;
  113.     {$ENDC}
  114.  
  115. CONST
  116.     kTranslateGetFileTranslationList = 0;
  117.     kTranslateIdentifyFile        = 1;
  118.     kTranslateTranslateFile        = 2;
  119.     kTranslateGetTranslatedFilename = 3;
  120.     kTranslateGetScrapTranslationList = 10;
  121.     kTranslateIdentifyScrap        = 11;
  122.     kTranslateTranslateScrap    = 12;
  123.  
  124. TYPE
  125.     DoGetFileTranslationListProcPtr = ProcPtr;  { FUNCTION (self: ComponentInstance; translationList: FileTranslationListHandle): ComponentResult; }
  126.  
  127.     DoIdentifyFileProcPtr = ProcPtr;  { FUNCTION (self: ComponentInstance; theDocument: FSSpec; VAR docType: FileType): ComponentResult; }
  128.  
  129.     DoTranslateFileProcPtr = ProcPtr;  { FUNCTION (self: ComponentInstance; refNum: TranslationRefNum; sourceDocument: FSSpec; srcType: FileType; srcTypeHint: LONGINT; dstDoc: FSSpec; dstType: FileType; dstTypeHint: LONGINT): ComponentResult; }
  130.  
  131.     DoGetTranslatedFilenameProcPtr = ProcPtr;  { FUNCTION (self: ComponentInstance; dstType: FileType; dstTypeHint: LONGINT; VAR theDocument: FSSpec): ComponentResult; }
  132.  
  133.     DoGetScrapTranslationListProcPtr = ProcPtr;  { FUNCTION (self: ComponentInstance; list: ScrapTranslationListHandle): ComponentResult; }
  134.  
  135.     DoIdentifyScrapProcPtr = ProcPtr;  { FUNCTION (self: ComponentInstance; dataPtr: UNIV Ptr; dataLength: Size; VAR dataFormat: ScrapType): ComponentResult; }
  136.  
  137.     DoTranslateScrapProcPtr = ProcPtr;  { FUNCTION (self: ComponentInstance; refNum: TranslationRefNum; srcDataPtr: UNIV Ptr; srcDataLength: Size; srcType: ScrapType; srcTypeHint: LONGINT; dstData: Handle; dstType: ScrapType; dstTypeHint: LONGINT): ComponentResult; }
  138.  
  139. {$ENDC}
  140.  
  141. {$SETC UsingIncludes := TranslationExtensionsIncludes}
  142.  
  143. {$ENDC} {__TRANSLATIONEXTENSIONS__}
  144.  
  145. {$IFC NOT UsingIncludes}
  146.  END.
  147. {$ENDC}
  148.